home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / mxlist.zip / README.PAS < prev   
Pascal/Delphi Source File  |  1993-01-04  |  1KB  |  49 lines
  1. Program README;
  2.  
  3. {$V-,I- }
  4.  
  5. {
  6.   There is a one-percent chance that you are looking at this file, README.PAS
  7.   when you really wanted to see the file:  READ.ME
  8.  
  9.   If that's you, then you might as well continue looking at this file
  10.   (it's short and simple).  You can switch back to READ.ME later.
  11.  
  12.   Anyway... This is one of those README programs.   Most of the work is done
  13.   in the file DMX2 --via the procedures in DMX_LIST.PAS.
  14.  
  15.   If you don't have the DMX2 file, then refer to READ.ME for information on
  16.   where to get it.
  17.  }
  18.  
  19.  
  20. uses   Dos, Crt, DMX_list;
  21.  
  22. const  ReadingFile  = 'READ.ME';
  23.  
  24. var    i,j          :  word;
  25.        OrigColors   :  byte;
  26.        Key,ext      :  char;
  27.        Fx           :  searchrec;
  28.  
  29.  
  30.   { ─────────────────────────────────────────────────────────────────────── }
  31.  
  32.  
  33. Begin
  34.   OrigColors := TextAttr;  { save original screen colors }
  35.   FindFirst (ReadingFile, AnyFile, Fx);
  36.   If DosError = 0 then
  37.     begin
  38.     ViewTextWindow (ReadingFile, Yellow,$3E);
  39.     TextAttr := OrigColors;
  40.     ClrScr;
  41.     end
  42.    else
  43.     begin
  44.     writeln ('File ' + ReadingFile + ' not found.');
  45.     end;
  46.  
  47.   writeln;
  48. End.
  49.